kak 


aha 


“ 


? EXECUTE PATCH/MERGE 


PACKET 1102 

INPUT 35 CARDS FROM CRA 
TIME 1618 

DATE 77013 THURSDAY» 01/13/77 


MESSAGE OF THE DAY **« 


WELCOME TO 95700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVENe 
FROM THE STAFF oF THE BIG BAD BURROUGHS, 


BURROUGHS B5700 TSMCP MARK XV1e0.69 AND INTRINSICS MARK XV1e0200 #xe 


? EXECUTE PATCH/MERGE 


? FILE CARD= PMCARD 


? DATA PMCARD 


G3PATCH/MERGE= 2 BUY 1618 10/12/76 
CDA IN PMCARDSPATCH/MERGES 2 

PBD1102 OUT 011 LINESPATCH/MERGE® 2 

DKA OUT SER MASTERF QOQQ000%PATCH/MERGES 2 

DKA IN SER PATCHES CANDESPATCH/MERGES 2 

DKA OUT SER PATCHDE 0000000!PATCH/MERGES 2 

DKA OUT SER PATCHES CANDESPATCH/MERGE= 2 

PATCHES/CANDE REMOVED | 
PATCHES/CANDE/Q0000003 285 SEGS*=CREATED 04/13/77 AT 04809356343 
DKA PRG PATCHES CANDESPATCH/MERGES 2 

DKA LOK PATCHES CANDESPATCH/MERGES 2 

CDA REL PMCARDIPATCH/MERGE® 2 


PEND, 


PATCHDE/0000000/0000000= 0 SEGS==CREATED 01/13/77 aT 008213233833 
DKA REL PATCHDE OQOQOOOOSPATCH/MERGES 2 

PBD1102 REL O11 LINE 1O018PATCH/ MERGES 2 

MASTERF/0000000/0000000= 300 SEGS*=CREATED 01/13/77 AT 16418813846 
OKA REL MASTERF QOOOOOOO3PATCH/MERGES 2 

PATCH/MERGES 2ePST= 30 EQY 

PKT#1102 REMOVED 


LABEL OQQOQ000000LINE 00177013? EXECUTE PATCH/MERGE 
BURROUGHS B=S700 PATCH/MERGE PROGRAM MARK XV1I.0,00 


TLC TTT Te INPUT 


$@CARD CONFLICTS LISTI MERGE ZIP NEW 
$, 33 PATCHES FOR CANDE 


CARD INPUT IS PMCARD 
PATCHES/CANDE WILL BE MERGED 
PATCH /CANDE IS NOT ON OISK 


$* COMPILE NUCANDE/TSHARER WITH TSPUL LIBRARY 

$* TSPOL STACK = 1024 e COMMENT TSPOL STACK AIN@T BIG ENOUGH 
$* TSPOL FILE TAPE = SYMBOL/CANDE UOISK SERIAL 

$* DATA CARD 

$= weave THIS LISTING SHOWS PATCHES IMPLEMENTEO AT UCSC ***¥* 
SRESET LIST SINGLE 

$SET TAPE 


S#PATCH NUMBER 1041 FOR CANDE CONTAINS 1 CARD 


IF ACBASE+2],01432] GTR O THEN GO TO MESAGES 
$3 THIS PATCH CQRRECTS AN ERROR THAT WOULD ALLOW TWO OR MORE 
$3: JOBS TO BE ASSIGNED 70 A TERMINAL AT THE SAME TIMEs THE 
$t ERROR WOULD OCCUR IF AN INVALID "TO" MESSAGE WAS ENTEREDe 


S#PATCH NUMBER 102 FOR CANDE ConTAINS 2 CARDS, 


TeSCANCPTRs AC BASE #+INDXJe IF 
INOX™ 1 THEN "Z" ELSE "9% WORKENDADRS#X)3 
$t BY KFK 
$3 DATE 8/1/74 
$3: IF THE QMARK TO (USERCODE] CONSTRUCT IS USED AND THE USERCODE 
$$ CONTAINS AN ALPHANUMERIC CHARACTER» THE mESSAGE WILL NOT BE SENTe 
$: AND A "NOT ON" WILL BE THE REPLY. 


S#PATCH NUMBER 403 FOR CANDE CONTAINS 1 CARD. 


THURSDAYs OL/1L3/77% 


25003400 


25001200 
25001210 


oO 


ovocoeo 


Q101 


0101 
0101 
0101 
O10! 


0102 


0102 
Q102 
0102 
0102 
0102 
0102 
Q102 


0103 


4718 PM. 


PATCH 


TSO CRB RE PSS SECO ROSE RR RRR RE RSE EE ORES SER ERE RS ER ERE REE EEE SER ERLE SSR R ESR S ERRORS) 


/MERGE 


$3 


Cal i ° ¢ 


FILESOK*TRUES 55095500 
BY KFK 
DATA 8/34/74 
IF A MAKE IS ENTERED AND A DUPLICATE FILE OCCURS 
SEVERAL BAD THINGS HaPPENe IF THE NEXT COMMAND JS A LOAD 
THEN THE FILE IS OK FOR A COPY TU PRINTER BUT A PRINT 
WILL GET A NO FILE. 


S#PATCH NUMBER 104 FOR CANDE CONTAINS 1 CAROS,. 
TAM$=03 WANT 38% WAITFOR $* VMCPMSGS TEMP t2 05 27901800 
$8 BY KK 
$3 DATE 11/15/74 
$3 THIS PATCH WILL CORRECT AN ERROR THAT COULD CAUSE CANDE TO BE DS=ED 
$* FOR aN INVALIO INDEX, THE ERROR HaPPENS IF MANY JOBS ARE "CHAIN"EDe 
$t THREE WORDS WERE LEFT IN THE PSEUDO STACK FOE EACH CHAIN REQUEST FOR 
S$: A LINEs AND THUS AFTER SEWERAL JOBS WERE RUN WITHOUT AN EQY THAT DID 
$$ NOT REQUEST A CHAIN» CANDE WOULO DQ AN INVALID INDEX, 
S#PATCH NUMBER 105 FOR CANOE CONTAINS 4 CARDS 
IF T = 0 THEN ACBASE] © 4 ELSE 59001800 
(F « IF ACBASE) < 0 THEN O ELSE ACBASE)) & 59004400 
FILETYPEC 3234216) & UNLUCKTOGGLE (32%473%1))3 59004450 
IF ACBASE) 20 THEN WORK(E3),C2§10) * ACBASE)) 59010700 
$t BY JTC = MSA CENTRAL 
$# PATCH NUMBER 400 FOR CANDE,xvI.0 CONTAINS 4 CARD, MAKE "LIST LIBRARY® WORK 
MATCH CWORDs"LIBRARY") LIB t= TRUE ELSE 56007650 
$8 THIS PATCH ALLOWS THE WORD "LIBRARY" IN THE LIST VERB CAS PER MANUAL). 
$: 
$t DG WILLMS» IMAR7G, BROCK Ue PATCH 400 
$# PATCH NUMBER 401 FOR CANDEexvleQ CONTAINS 2 CARDSe 7 CHARACTER HEADING 
OS t= 7 CHR; 00069800 
TALLY ft 123 00069900 
$% THIS PATCH CREATES A 7 CHARACTER HEADING FOR THE LIST VERBe THE VERB 
$: ALLOWS 7 CHARACTER NAMES» BUT ONLY LISTS THE FIRST 6 IN THE HEADINGe 
$: 
$3 0,Ge. WILLMS» 9MAR76_ BROCK Use PATCH 40] 


oooceo0c & 


Oo 


cooo0nc 


ovo oO 


oo Co Cc oOo 


0103 
0103 
0103 
0103 
0103 
0103 
0103 


0104 


0104 
0104 
0404 
0104 
0104 
0104 
0104 
0104 


Q105 


0105 
04105 
O105 
0105 
0105 


0400 


0400 
Q400 
0400 
0400 


04014 


0401 
0404 
o4ot 
o40t 
O404 
04014 


$# PATCH NUMBER 402 FOR CANDE*XV1Ie0 CONTAINS 1 CARDe CORRECT @=MARK STATUS n 9402 
IF (SEQS=EVENTS £37) = = USERCODE THEN A (BASE+3)3 44006600 D 0402 
$! THIS PATCH UPDATES Q=MARK STATUS¢ D Q402 
$3 D 9402 
$t THIS PATCH CORRECTS THE RESULTS OF A @*"MARK STATUS REQUEST DONE D 0402 
$: WHILE A COMPILATION IS BEING DONEe IF THE COMPILER IS NOT IN COREs 0 0402 
$t THE SEQUENCE BEING COMPILED IS NOT KNOWN, THIJS PATCH CAUSES CANDE TO 0 0402 
$$ SUPPRESS "AT SEQ GIBBERISH" IF THE SEQUENCE NUMBER IS NOT KNOWNe D 0402 
$: D 0402 
$1 0.G. WILLMS» 1JUN76, BROCK Us. PATCH 402 D 0402 
$# PATCH NUMBER 403 FOR CANDEexVIeO CONTAINS 1 CARD FIx CHANGE TYPE WRKFLE 0D 0403 
GOODOBUYI=FALSE3 62010350 D 0403 
$$ THIS PATCH UPDATES CHANGE TYPEs D 0403 
$3 IF A USER CHANGES THe TYPE OF HIS WORKFILEs HE WILL NO LONGER HAVE 0D 0403 
$1 A VALID OBJECT VERSION OF HIS WORKFILE, D 0403 
$3 D 0403 
$$ DeGeWILLMS»411AUG76~4 BROCK Us PATCH 403 D 0403 
$# PATCH NUMBER 404 FOR CANDEexyl.0 CONTAINS a’ CARDS. FIX ABBREye "TYPE" D 0404 220 
MATCH CVERBTABLE CA (5306989 )}eC6842)2 "TYPE ") Go GETYES 00201010 0 Senses AL jun : a 
panes —-BEGIN WeHieHt =$5—G6—-GERY PEN § $s 699 ; 4020-5 oh Lhe 
$ VorDT 67000000 65000000 D 0404 
CALL (NOTUSED)3 * 65 * WAS "TYPE" 90316000 D 0404 wise 
"2TYPE  "s 3%3000400000000076",» % #62 ALSO 90386000 p 0404 eon 


EGY 
ESpe1 page & 
WINCH '=4§ 9 020k 


$1 THIS PATCH CHANGES CHANGE TYPEs 

$1 VERB "TYPE" NOW GOES THROUGH "CHANGE", 

$# THIS IS DONE TO 1) REDUCE SIMILAR CODE, 

$s 2) ALLOW ABBREVIATIONS IN TYPE (AS PER MANUAL). 

$t PRIOR TO THIS CHANGEs CANDE WOULD BE UPSET AT THINGS LIKE TYPE & Xe 


oooc T0000 
Cc 
& 
oS 
- 


ail ogee 
LS 1777 


_DsGeWILLMSs x vies BE pi AW 


LLAUG76, BROCK U, PATCH 404 


$# PATCH NUMBER 405 FOR CANDE*XVI-«0 CONTAINS 11 CARDS« CHECK FOR WORKFILE C¢ 0405 

IF FILENAME®O THEN GOERR C™NO FILE" 193 52002650 ¢ 0405 

ee WORKE9I1S08UNITNUMBER[O# 428613 52925830 ¢ 0405 

IF HAVEINPUTFILE 52025860 ¢ 0405 

THEN. NORKTOTSPBORRETIEPILNANL ELSTON 2G) 52025900 ¢ 0405 

ELSE 32025930 ¢C 0405 

IF FILENAME SO 32025960 ¢ 0405 

THEN GOERR ("NU FILE" #4) 52026000 ¢ O405 

__ ELSE WORK EOI SEWORK EO IEF ILENAMEL 1206136) 52026030 ¢ 0405 

“LABEL EXIt3 75000350 ¢ 0405 
C 


IF FILENAME=O THEN GOERR ("NO FILE"»s1) ELSE % CASE 0 75000550 


ExITs 75002550 


$1 THIS PATCH CORRECTS DELETEs PUNCH AND UPDATE VERBS. 
$3 PRIOR TO THIS PATCHKs NONE OF THE VERBS CHECKED TO SEE IF THERE WAS A 
$% VALIO WORKFILE,. 
$t THIS CAUSED "DELETE" TO GENERATE A SOURCE FILE ON DISK» 
$3 "PUNCH™ TO FIRE UP PUNCH/CANDE WHICH WOULD GET pater ON 
$t A NO FILE ERROR» 
$3. "UPDATE" .TO RESPOND WITH wee EVEN THOUGH THERE WAS NO WORKFILE, 
$3 
$3 DeGeWILLMSe13AaUG76, BROCK U, PATCH 405 
$$ MODIFIED BY DRe UCSEs, 1/13/77 
$# PATCH NUMBER 406 FOR CANDEeXV1.90 CONTAINS 3 CARDSe FIX MISTAKE IN LUADIT 
GO EXIT; 58060000 
%® VOID A CARD : 58063000 
$ VOIDT 58067000 58065000 
$: THIS PATCH CORRECTS LOADIT. 
$1: PRIOR TO THIS PaTcHs IF LOADIT FOUND THE FILES NOT OK CIEs FILESOK # 
$1! FALSE) IT WOULD SET wANTSVSETUPFILES.s UNFORTUNATELY IT DID NOT EXIT 
$3 IN ORDER TO SET UP THE FILES, INSTEAD IT FELL DIRECTLY INTO THE 
$1 DISPATCH OF LOAD/CANDEe AFTER LUAD/CANDE EQy*e LOADIT WOULD ISSUE 
$t A CANCELCKPT WHICH WOULD PRODUCE SERIOUS ERRORS C(CSEGMENT ZERO OVERWRITE*ETC)» 
$3 
$f DeGsWILLMSs16AUG76_, BROCK Ue PATCH 406 
$# PATCH NUMBER 407 FOR CANDEaxvVled CONTAINS 3 CARDSe FIX MISTAKE IN CUPYIT 
LABEL SUFFIX; 52007012 
IF LIBTOG THEN GO SUFFIX ELSE 2”"RESEQ”" IS FILENAME 52009850 
SUFFIX! 52912650 
$: THIS PATCH UPDATES “COPYIT", 
$! PRIOR TO THIS PATCHs "RESEQ" COULD NOT BE USED AS A FILE™NAMEs 
$$ CIE. COPY SYMBOL/RESE@ WOULD RESULT IN COPYING SYMBOL/"USERCODE” WITH 
$8 RESEQUENCING). 
$t 
$t 0,G,WILLMSe18AUG76, BROCK YU, PATCH 407 
$# PATCH NUMBER 501 FOR CANDE«XVI.0 CONTAINS 63 CARDS. USERCOpDES START pIGITS 
Ke a REMERON 7TO? 
PROCEDURE FIXUSER (CANTRe AP EXIT» BUMPCNTR)S VALUE BUMPCNTRS 00054704 
INTEGER CNTRs ARRAY A (0); 00054706 
LABEL EXIT BOOLEAN BUMPCNTR; 00054708 
BEGIN 00054710 
REAL WORD; 00054712 
INTEGER [eI BY6sLENGTHS 00054744 
INTEGER STREAM PROCEDURE COUNTZERO (A) VALUE AS 00054716 


OOOAAAQAAAYAD 


o 


ocoocov 9000 0 


o 


oovvocvceT7 


Soc o00 00 oO 


0405 
0405 
Q405 
0405 
0405 
0405 
0405 
0405 
0405 
Q405 


0405 


0406 


0406 
0406 
0406 
0406 
0406 
0406 
0406 
0406 
0406 
0406 
0406 


0407 


0407 
0407 
0407 
Q407 
Q407 
0407 
Q407 
0407 
0407 


0501 


0501 
0501 
0504 
0504 
05014 
0501 
0501 
0501 


BEGIN 

STts_Oc As TALLYt=03 

8 CIF SC EQL "0" THEN BEGIN UPSs UPT END ELSE JUMP OUT)3 
COUNTZEROS2TALLY3 

END OF COUNTZEROS 


IF CWORDIFA LINC (CSREG)IJ)e£195)] EQlL O THEN 


ELSE 


BEGIN 
WORD§SDECCONV (WORD) 
IF LENGTHt#A CINC CSREG)I]e03%3) EQL O THEN 
GOERR CWORDs8)3 
IF ITtS8=COUNTZERO CWORD) > 6 THEN 
GOERR (WORD»8)3 
IF I EQL @ THEN Itel3 
IF LENGTHS el +LeENGTH > 7 THEN 
GOERR (CWORD?8)3 
IBY6%2] x 63 
A CSREG]$20 & WORD C6348"IBY6SIBY6) & 
A CSREG) (64+IBY6262¢7"])x6)] & LENGTH (€324533)3 
DECR C(CSREG)3 
IF BUMPCNTR THEN 
INC (CCNTR)3 
END 


DECR (SREG)} 


END OF FIXUSER3 


NUMUSER? 


ELSE IF W@RD EQL "/" THEN 


00054718 
00054720 
00054722 
00054724 
00054726 
00054728 
00054730 
00034732 
00054734 
00034736 
00054738 
00054740 
00054744 
00054742 
00054744 
00054746 
00034748 
00054750 
00034752 
00054754 
00054756 
00054758 
00054760 
00054762 
00054764 
42002700 


IF SREG + 2 LEG MAXSREG THEN FIXUSERCIsAsEXIT*FALSE) ELSE42002710 


ELSE 
GOERR CWORD,8)3 
LABEL NUMUSERS 


IF INPCOUNT + 2 LEQ@ NPARAMS THEN 
FIXUSER CINPCOUNT#AS EXIT TRUEDS 
GO TO NUMUSER; 


LABEL NUMUSER3 


NUMUSER$ 


LIBNAME3 


IF LIB t= (CHAR 2% WORDeCF) = "/" THEN 


IF I + 2 LE@ PC THEN FIXUSER Cle As EXIT» TRUE) ELSE 


ELSE 


42002780 
42002785 
52007015 
92012305 
52012310 
52012320 
52015950 
56000450 
56004700 
56004705 
56004710 
56004790 


MATCHCWORDs"LIBRARY") BEGIN LIBt=TRUESGO NUMUSER END EL3SE56007650 
LABEL LIBNAME 3 


IF SREG + 2 LE@ MAXSREG THEN FIXUSER (Ts AP EXITS FALSE DS 
GO TO LIBNAME 


$ VOrDT 57117000 


IF LIB t= WORDeCF = "/" THEN 
IF TOIT THEN GOERR ("NO USER"*39) ELSE 


IF I # 2 LEQ@ PC THEN FEXUSER CIeArEXITs TRUE) ELSE 


ELSE 
GOERR CWORD?8)3 
IF HAVEUSER THEN GO ERR ELSE 
BEGIN 
FROMSsTRUES 
IF I * 2 LEQ PG THEN FIXUSER (IsAs EXIT» TRUEDS 


END 
$1 THIS PATCH ALLOWS USERCODES STARTING WITH DIGITS IN ALL THE 
$$ CANDE VERBS WHICH ALLOW USERCODES, 


57041500 
57089500 
57091100 
57413000 
57114000 
72003805 
72003840 
72003820 
72003900 
72003905 
74009000 
74009005 
74009040 
74009020 
74009095 


eRe hw ReReku RoR ole Bek whekeR eB eke RoR vind «he RokwkokvR-Ruiek vk of whole hvelololelomolokukeRuichelolekelolololonvlclol~el =) 


0504 
0504 
0501 
0501 
0501 
0501 
05014 
0501 
0501 
0504 
0504 
Q35014 
0504 
0501 
0501 
Q504 
0501 
0501 
0501 
QO501 
0501 
QO501 
0501 
0501 
0504 
0504 
0501 
Q504 
0504 
0501 
O501 
0501 
QO5014 
0501 
05014 
0501 
0504 
0504 
Q501 
0501 
0501 
Q501 
0501 
05014 
0504 
0501 
0501 
0501 
0504 
Q504 
0504 
0501 
0501 
QO501 
0501 
050! 
0504 


$3 
$21 0eGe WILLMSs26FEB76~. BROCK Us. PATCH 504 
$! PATCH REWRITTEN 26MAY76 = D.Ge WILLMSe 
$# PATCH NUMBER 502 FOR CANDEeXV}e0O CONTAINS 16 CARDS. “EXECUTE OBYECT" 
SPECNAME = ALBASE+9 I] ¢C17301I)#>, % NO "0" IN MFIO 57019500 
BOOLEAN OBVJECTTOGGLE; 57043500 
ELSE MATCH (WORDs "OBJECT ") 57092100 
BEGIN 57092200 
MATCH (VERBWORDs *EXECUTE") 57092300 
IF NAMEWORD [0] # 0 THEN ERROR (8) ZMFID ALREADY GIVEN 57092400 
ELSE OBJECTTOGGLE t= TRUE 57092500 
ELSE ERROR (8) 57092600 
END 57092700 
If NOT OBYECTTOGGLE THEN 57106500 
IF OBVECTTOGGLE THEN 57126100 
IF NAMEWORD CO] = O THEN GOERK ("INCOMPL",6) 57126200 
ELSE SPECNAME t= 13 57126300 
FIND CLL&IAM C33%41%7),0,7F SPECNAME = 41 THEN NAMEWORD (0) ELSE 57202000 


NAMEWORD (0)],(£6%36],NAMEWORD (1],USERCODE )3 57202500 
RUN1 #2 IF SPECNAME = 1 THEN NAMEWORD (O] ELSE NAMEWQRD [(0).66836)s 57228000 
$: THIS PATCH EXTENDS THE EXECUTE VERB SYNTAXe UF THE WORD “QBYECT" 
$$ APPEARS BETWEEN EXECUTE AND MFIDs THEN THE MFID WILL NOT BE FUDGED 
$3: (IEe EXECUTED AS IS» NO "O" INSERTED In MFIDO)« THUS MFID CAN BE 7 
$! CHARACTERS IN LENGTH 


$$ 0.G_. WILLMS» 26FEB76, BROCK Us PATCH 502 


$# PATCH NUMBER 506 FOR CANDE,XVI.0 CONTAINS 114 CARDS, CORRECT FILETYPE 
TEPC CECCEETTRET COREE UPC UTE OCCT EUV TRE TERETE REPEC OCCT CEE OR eee re 
ALPHA PROCEOURE GETTYPE CFIVLETYPE)4 VALVE FILETYPE INTEGER FILETYPES 74007020 
BEGIN 74007030 
IF FILETYPE GTR NUMOFTYPES THEN FILETYPE% #0; 74007040 
GETTYPE#sIF BOOLEAN CWORK (€4],01081)) THEN "OBC 2 7 & 74007050 
TYPETABLE CFILETYPE] (308686) ELSE TYPETABLE CFILETYPEJ4 74007060 
END OF GETTYPES 74007070 
$ VOIOT 74019200 
PRINTIT CA CBASE + 1)eGETTYPE CWORK €4),036%6)))3 74049300 
$ VOIDT 74020600 74020600 
PRINTIT CA CBASE + L)*GETTYPE CWHORK (4],(3686]));3 74020800 


$3: THIS PATCH WILL CAUSE CANDE TO GET THE FILETYPE FROM THE DIRECTORY WHEN 

$2 IT HaNOLES THE "LIST FILES FILE"NAME" REQUESTe PRIOR TO THIS PaTCH CANDE 
$! WOULD DETERMINE THE FILE TYPE CIE SOURCE OR OBVECT) FROM THE NAMEe 

$1 A ZERO INDICATED OBVECT WHILE A NON®ZERO MEANT SOURCE .THIS CAUSED THE TYPE 
$i TO BE INCORRECT FOR FUNNY FILES CIEe NON*"TSS)> 

$3: NOTE * CANDE HANDLES A LIST FILES REQUEST IF ONE FILENAME IS REQUESTED 

$t INSTEAD OF FIRING UP LFILES/CANDE. 


$t DeGe WILLEMS» 31MAR76, BROOK Use PATCH 506 


oo00 


o 


eluiuvbekeszek«lekoetukoseRekuvkokekokek whee o) 


o 


ekvEv Ev ER eke ole Rwviek ehekuvlokom es whee os) 


O501 
Q2014 
0301 


0502 


0502 
Q302 
0502 
0502 
0302 
0502 
0502 
0502 
Q502 
0502 
0502 
0302 
0502 
0502 
0502 
0502 
0502 
0502 
0302 
Q302 
0502 
03502 


0306 


0506 
0306 
0506 
0506 
0506 
0506 
0506 
0506 
0506 
0506 
0306 
0506 
0306 
0506 
0506 
Q506 
0506 
0506 
0506 
0506 


$# PATCH NUMBER 508 FOR CANDEeXVI.0 CONTAINS 2 CARDSe REMOVE 7*CHARACTER 


IF S AND QO THEN ELSE 
IF XeC42%6] EQL " " THEN 
THIS PATCH WILL ALLOW A USER TO REMOVE FILE NAMES 7 CHARACTERS IN LEN 


: 
$ DeGe WILLMSs SAPR76_. BROCK Us PATCH 508 


$% PATCH NUMBER 510 FOR CANDEexvI.0 CONTAINS 4 CARD, 5 CHUNKS FOR LIST 


MATCHCRUNIs "LIST *) CHUNKS!36 ELSE 
$3 THIS PATCH CHANGES THE CHUNK SIZE FOR LIST/CANDE TO 6 FRUM 5, 
$% THIS SHOULD STOP THE EXPANDED (NO MEM) CONDITIONS. 


$1 D0,Ge WILLMS» 7APR76, BROCK ie PATCH 510 


$# PATCH NUMBER 514 FOR CANDEexyleO CONTAINS 14 CARDSe "COMPILE SPECIAL" 


COMPNAME _ = ACBASE+101# >» % SPECIAL COMPILER 
SAVESIZE = 1183 % WOROS WSED ABOVE 
ELSE MATCH CWORD*e"SPECIAL") IF TYPEWORD EQu O THEN 

TYPEWORD#s99 ELSE ERROR (8) 
IF TYPEWORD EQ@L 99 THEN IF COMPNAME EQ@L O THEN 
COMPNAME #2 wORD ELSE ERROR (8) ELSE 
IF TYPEWORD EQL 99 THEN 


TF COMPNAME EQL O THEN GOERR (C™INCOMPL 56 )3 
CHKTYPE3 IF TYPEWORD NEQ 99 THEN 
BEGIN 
IF NOT BOOLEAN (CTs=TYPETABLE CTYPEWORDJ)ef1341)) THEN 
END; 
RUN@t=IF COMPNAME EQL @ THEN TYPETABLE CTYPEWORD),(C6342] ELSE 
COMPNAME 3 


$8 THIS PATCH ALLOWS SPECIAL COMPILERS UNDER CANDEe THE SYNTAX IS 
$i “SPECIAL” COMPILER*NAMEe JE~e C SPECIAL ALGOL16 WITH LISTINGs 
$1 

$1 0.G_. WILLMSs 20APR76, BROCK Ue PATCH 514 


$# PATCH NUMBER 516 FOR CANDEexyleO CONTAINS 85 CARDS» SECURITY COMMANDOS 


DEFINE SECURE (SECURELsSECURE2sSECURE3*SECUREG) » 
COM157 CLL&t4 C3394187),7/SECURELsSECURE 22 USERCODEs SECURE 3» 
SECURES) #3 
BOOLEAN SLASHsNAM3sNAM4} INTEGER FORKGETSET3 
LABEL CHECKUSERs SELECTIT; 


NAMES 


61001750 
61002950 
GTH, 


27002600 


57020500 
57021000 
57092800 
57092900 
57103100 
57103200 
57126400 
57126500 
37150000 
97150400 
37150200 
57431300 
57177000 
537177050 


00041800 
00041900 
00042000 
68000550 
68000650 


leo mee oi w] 


ov00o 00 


o 


ovo oc cecTecTcT CMC OV VT CO 


o 


ooo 00 


0508 


0508 
0508 
0508 
0508 
0508 


0510 


0510 
Q510 
0510 
Q510 
0510 


0514 


0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0544 
0514 
0514 
0514 
0314 
0514 
0514 
Q3514 
0514 
0514 


0516 


0516 
0516 
0516 
0516 
0516 


A CBASE+1 33 sSOURCEFILE; % OEFAULT FILE NAME 
IF A CIJeC383] = 0 THEN %& NOT A LETTER STRING 
IF A CI] = "/" THEN 


IF SLASH THEN GO ERR1 
ELSE IF WTH TREN IF NAM2 THEN 
BEGIN 
CHECKUSERS 
SLASHS®TRUES 
IF I + 2 LEQ IMAX THEN 
BEGIN SREGtsI3 
FIXUSERC Is AsEXIT» TRUE) ENDS 
END 
ELSE GO ERR1 
ELSE IF NAML THEN GO CHECKUSER 
ELSE GO ERR4I 
ELSE 
GO ERR 
ELSE 
BEGIN 
IF SRC THEN GO TO ERR13 
IF WTH 
OR OBY THEN BEGIN FORGETSET#=23 GO SELECTIT ENDS 
SRCL8=TRUE3 
IF OBY THEN GO TO ERR13 
IF WTH 
OR SRC THEN BEGIN FORGETSET%213 GO SELECTIT ENDS 
OBYs:=TRUE3 
IF SLASH THEN IF NAM4 THEN GO SELECTIT 
ELSE BEGIN A CBASE+7)38=WORDS 
SLASHISFALSES 
NAM4t2TRUE END 
ELSE 
IF nAmM2 THEN GO SELECTIT ELSE BEGIN 
END 
IF OBJ THEN 
IF wORDe(42!36) NEQ@ " © THEN 
GOERR (WORD? 42)3 
IF SLASH THEN IF NAM3 THEN GO SELECTIT 
ELSE BEGIN A [CBASE+6]32WORD3 
SLASHISFALSE3 
NAM3SSTRUE END 
ELSE BEGIN 
SELECTITS 
ENO3 
ENDS 


IF SLASH OR CNOT NAML) OR CWI AND NOT NAM2) THEN 
GOERR c"INCMPLT"»6)3 


68001400 
68002600 
68002610 
68002620 
68002621 
68002623 
68002625 
68002627 
68002628 
68002629 
66002630 
68002635 
68002640 
68002650 
689002660 
68002670 
68002680 
68002685 
68002690 
68903000 
68003050 
68003100 
68003150 
68003500 
689003550 
68903600 
68003650 
68004510 
68004520 
68004525 
68904530 
68004540 
68904600 
68004850 
68005110 
68005120 
68005130 
68005511 
6809055413 
68005514 
68005515 
68005517 
68005518 
68005535 
68005540 
68005600 
68005850 


A CBASE4+5 )%=#REAL (SRC) & REAL COBYI04624791) & FORGETSET( 4424682 1568005950 


IF NOT NAM3 THEN A CBASE4+6] 83USERCODE 
$ VOIOT 
A (CBASE*+3}8= = A [CBASE+2)3 
A [CBASE+4]&28=IF NaM& THEN A CBASE47] ELSE USERCQODE: 
FIND CLL&IAM [3387]20sA CBASE*2)2A [BASE*4)] /USERCODE)3 
TEMPts73 
IF NOT OBY THEN SECURE CACBASE FI J ¢ACBASE+6) 2 AL BASE*+3)] 2 AL BASE+4) D3 
IF A (BASE*1].042:6) EQL * " THEN 
IF NOT SRC THEN SECURE CA CBASE +11] e(6836]9A [BASE+6]2A [BASE*3])» 


68005960 
68906200 
68006210 
68006220 
68006300 
68006400 
68007000 
68007050 
68007100 


oT TO TCOCSCCCCVC CVC COCO COCO CV CO CUVTO CCV OTCUO CU VCOCOCDVV OO CV CVU CUV COCO VUNCO 2 


0516 
0516 
0516 
0516 
0516 
0516 
0516 
03516 
0516 
0516 
0516 
0516 
0516 
0316 
Q516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
03516 
0516 
0516 
Q516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
Q516 
0516 
0516 
0516 
0516 
0516 
0316 
Q516 


A C[BASE+4])3 % OBVECT 68007150 

TEMP 3=63 68007200 
PARAMS sIF SRC OR OBY UR A CBASE4146(£4236)] NEQ ™ " THEN 1 ELSE 23 68007300 
A CBASE+5),04222]:=PARAM} 68007350 
IF EVENTS €1)] LSS 0 THEN &% NO GUARD FILE 68008200 
WORD$*®A [CBASE+9]3 68008400 
WORD?3A (CBASE+2]3 68009000 

$ VOIDT 68009800 68009600 
WORD?#A [BASE+5],(42%2) + 53 68010110 
FOR 1386 STEP 1 UNTIL WORD DO 68010120 
IF A CBASE+]] NEQ@ 7 THEN % SECURITY MAINTENANCE IGNORED 68010200 
LITOUT C™ERRS “»sNOCRLF 3 68910400 

IF A CBASE+I1},(6%6} Egy O THEN 68010510 
BEGIN 68010520 

A CBASE+1), (O26): 9%4"5 68040530 

IF A CBASE*+I],.01236] LEQ 9 THEN *® TE "918010" 68010540 

A CBASE+ J eCL2:3s6 J tHF LT LENAME.06236]; 68030550 

END 68910560 

LITOUT (* A CBASE*IT]eCRLF Ds 689010600 

IF B CFORGETSET&SA CBASE+9)e044%2)) THEN SRCS FALSE 68010842 
ELSE SRC%&eB CA CBASE*5))3 68010844 

IF FORGETSET = 2 THEN OBJSSFALSE 68010846 
ELSE OBVJ!82B ¢A CBASE4+5].(4681))3 68010848 


THIS PATCH UPDATES THE SECURITY COMMANDS "LOCK™» "PUBLIC's AND "UNLOCK" 


le 


26 


3e 


<SECURITY COMMAND> NOT FOLLOWED BY A FILE NAME WILL NOW CORRECTLY 

ACCESS THE WORK FILEse PRIOR TO THIS PATCHe CANDE WOULD TRY TO 

ACCESS THE WORK FILE USING THE USER"S NAME CIEe FILENM) INSTEAD OF 

THE SYSTEM NAME ClEe 15###)- THE RESULT WAS EITHER AN ERROR IF THE 

FYLE WAS NOT IN THE USERS LIBRARYs OR CANDE WOULD UPDATE A LIBRARY FILE 
OF THAT NAME INSTEAD OF THE WORK FILE. 


THE "+" HaS BEEN REMQVED FROM THE FILE NAME IN THE ERROR MESSAGES, 
ERROR MESSAGES FOR OBYECT FILES HAVE THE FIRST "O" REPLACED WITH AN "¥", 


CANDE WILL NOW REPORT AN ERROR IF THE OBVECT FILE IS NOT IN THE DIRECTORY 
ON A <SECURITY COMMAND> <FILE NAME> INPUTe PRIOR TO THIS CHANGE* CANDE 
WOULD ONLY REPORT ERRORS FOR SOURCE FILES CUNLESS <SECURITY COMMAND> 
"OBJECT" WAS INPUT), 


USERS ARE NOW ALLOWED TO SPECIFY A SUFFIX ON BOTH THE FILE NAME AND 
GUARD FILE NAME» IF IT FOLLOWS A "/", 
EGe LOCK A WITH C/0D 

LOCK A/B 

LOCK A/B WITH C 

LOCK A/B WITH C/D 

PUBLIC A/B 

UNLOCK A/B 


**#WARNING** = REQUIRES PATCH # 501 FOR "FIXUSER" 
waNOTE ws = MCP DOES NOT CHECK SECURITY = NEEDS MCP PaTCH # 563, 


DeGeWILLMS = 25MAY76, BROCK Us PATCH 516 


hw Eekwiokelek ese el oe esoke eho R ol eRe holed ekekek eleRehoRelebetctoeleloluivh vuiolefeonelelLelelueloleh=iwhekel=sits) 


0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 


0516 


0316 
0516 
0516 
0316 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0516 
0316 
0516 
0516 
03516 
Q516 
0516 
0516 
0516 
0516 
0516 
0516 


' @ 
$# PATCH NUMBER 517 FOR CANDEsXV1e0 CONTAINS 76 CARDSe WHATS A/B D 0517 r 
BOOLEAN OBJ»SLASHS INTEGER JsoPcs REAL WORDS 64000550 0 0517 
A [BASE+2]1=5USERCODES 64005950 Dp 0517 e 
ELSE 64006010 Dp 0517 
BEGIN 64006020 D 0517 
SLASH!#OBUt=BOOLEAN (A (BASE+2]8=A [CBASE+1) 8a1320)3 64006030 D 0517 @ 
PCtsA CBASE)3 64006040 D 0517 
WHILE I LSS PC DO 64006050 D 0517 
BEGIN 64006060 9 0517 e 
INC (193 64006070 D 0517 
WORD!#A CINC (SREG))3 64006080 D 0517 
IF WORD,C3%3)] GTR O THEN % LETTER STRING 64006090 D 05147 & 
BEGIN 64006400 9 0547 
WORD? =WORD,(6242)3 64006110 D 0547 
MATCH CWORDe"ORJECT ") 64006120 D 0517 & 
OBVISTRUE 64006430 D 0517 
ELSE 64006140 D 0517 
IF A (BASE+1] EQL O THEN 64006150 D 0517 @ 
A [CBASE41]%! WORD 64006160 D 0517 
ELSE 64006170 D 0517 
IF A CBASE#2] E@L O THEN 64006180 D 0517 © 
IF SLASH THEN 64006190 D 0517 
BEGIN 64006200 D0 0517 
A (BASE+2)3:=WORB3 64006240 D 0517 e 
SLASH!ISFALSES 64006220 0 0517 
END 64006230 D 0547 
ELSE 64006240 D 0517 @ 
GOERR (WORDe8) 64006250 D 0547 
ELSE 64006260 D 0517 
GOERR CWORD,)8) 64006270 D 0517 e 
END 64006280 p 0517 
ELSE 64006290 D 0517 
IF WORDeCi82) E@L 1 THEN % SPECIAL CHARACTER 64006300 D 0517 @ 
IF WORD EQk "/" THEN 64006310 D 0547 
IF SLASH THEN 64006320 D0 0517 
GOERR (WORD,8) 64006330 D 0517 @ 
ELSE 64006340 0 0547 
BEGIN 64006350 p 0517 
SLASH2=TRUE3 64006360 D 0517 & 
IF I + 2 LEQ PC THEN 64006370 0 0547 
FIXUSER (IpAsEXITs TRUEDS 64006380 D 0517 
END 64006390 D 0517 & 
ELSE 64006400 p 0547 
GOERR (WORDs8) 64006410 D 0517 
ELSE 64006420 0 0517 e@ 
BEGIN 64006430 D 0517 
WORDSsDECCONV CWORD)3 64006440 D 0547 
GOERR CWORDs8)3 64006450 9 0517 e@ 
ENDS. 64006460 D 0517 
END3 64006470 p 0517 
IF SLASH THEN GOERR ("INCMPLT"*8)5 64006480 D 0517  ] 
IF OBJ THEN 64006490 D @517 
IF A CBASE41) EQL O THEN 64006500 0 0517 
IF GOODOBY THEN 64006510 D 05147 ] 
BEGIN 64006520 D 0517 
A CBASE+1)%sSQURCEFILE«(6#36]3 64006530 D 0517 ° 
@ 


$# 


A (BASE) %=03 
END 
ELSE 
GOERR CYNO FILE"s1) 
ELSE 
A [BASE41]35A (BASE+1),(6%36]3 
IF A [CBASE+#2] EQL 0 THEN 
A {BASE+2]t=USERCODES 
ENDS 
GO TO CASE13 
END3 % CASE 0 
A CBASE+2]1 *USERCQDES 


FIND CLLSIAM (3384187) 502A (BASE*1LJ 2A ([BASE+2] 2USERCODEDS 
IF A CBASE+1),0686] EQ 0 THEN A (BASEF1),062 6} 8 za; 


IF EVENTS €1) LEQ O THEN 
BEGIN 
GOERR CA CBASE+1)22)3 
END3 


MSG CLoIF A CBASE+1).06896) EQ "*" THEN O & "He" (6342136) 
FILENAME (1236386) ELSE FILENAMESTRUE*TYPETABLE CFILETYPEJ» 


WORK C7J)41eDaATEsTMewORK (3],02310)) 
THIS PATCH UPDATES THE WHATS COMMAND. 


A USER CAN NOW SPECIFY A FID IN THE WHATS COMMAND« 


EG. WHATS A/Be 


A USER CAN ALSO NOW ACCESS HyS OBVECT WORK FILE VIA wHATS OBJECT, 


**WARNING#* = REQUIRES PATCH # 501 FOR FIXUSER, 


O.Ge WILLMSs 31MAY76, BROCK Us, PATCH 517 


PATCH NUMBER 518 FOR CANDEeXVIe0 CONTAINS 92 CARDS. 


CHANGEFILESsCHANGEFILE5 )sCC15 (CCHANGEFILE1s5»CHANGEFILE2> 
CHANGEFILE3+CHANGEFILE4sCHANGEFILES*USERCODE) #3 


INTEGER L3 
IF A CINCCSREG)) EQL "/" THEN 
BEGIN 
IF LtaT*(SREG"S) EQlL O THEN GO TO BADPARAM; 
IF L GEQ 2 THEN FIXUSER (SsAsEXIT»FALSE)S 
IF A CINC(SREG)Je£393) GTR O THEN 
A [CBASE45]8&A (SREG),(6842] 
\ELSE GO TO BADPARAMS 
INC (SREG)3 
END 
ELSE 
A CBASE+5]1SUSERCODES 
MATCH (A CSREG].COS42) e"TYPE 
A [CBASE+1)3=4 (SREG),(6142)3 
IF A CINC(SREG)] EQL "/" THEN 
BEGIN 
IF L#eT*(SREG*S) EQl 0 THEN GO TO BADPARAMS 
IF & GE@ 2 THEN FIXUSER (S»AsEXIT#FALSE)} 
IF A LINCCSREG)J.03#3] GTR O THEN 


") GO GETYPES 


"CHANGE" COMMAND 


64006540 
64006550 
64006560 
64006570 
64006580 
64006590 
64006600 
64006610 
64006620 
64006630 
64006640 
64006950 
64007400 
64007650 
64007700 
64007710 
64007730 
64007740 
64008900 
64008950 
64009000 


00041200 
00941300 
00200420 
00205400 
00205405 
00205410 
00205415 
090205420 
00205425 
00205430 
00205435 
00205440 
00205445 
00205450 
00205455 
00206300 
00206305 
00206310 
00206315 
00206320 
00206325 
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o 
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A CBASE+6]tA (CSREG],06242) 
ELSE GO TO BADPARAMS 
ENO 
ELSE 
BEGIN DECR (SREG)3 
A [BASE4+6]$SUSERCODEsS END; 
TEMPt#63 


® VOIO A CARD 
FIND CLL&IAM C3384127)50+MAKEFN ("1S"FLL )»USERCODE*USERCODE)3 


FIND CLLQIAM 03384137] 50sA CBASEJoA (BASE+5],USERCODE D3 
FIND CLL&IAM 03334187] 50sA CBASE+1J2A (BASE*6)/USERCODE)3 
IF A CBASE+1) = 2 THEN IF A (CBASE),06C4236) €QL * " THEN 
A (BASE] 8A (BASE) .66836] ELSE 
GOERR (A [CBASE],42)3 
FIND CLL&IAM [33841!7]505sA CBASEJsA (BASE+5) 2USERCODE D3 


TesIF SCHEDULINE AND BOOLEAN (SCHEDNAME.C1iti))2 THEN O ELSE 33 


DOING? #23 

IF A CBASE+5] EQL USERCODE THEN 

THsLl & VMCPMSG (33841!7]3 

CHANGEFILE CTA CBASE+1I]eA CBASE*S] 2A CBASE*t2) 2A CBASE+6))3 
IF A CBASE].(42%26] Eqlk * " THEN 

BEGIN 

PARAM! =LIBMSGCTRi=23 

CHANGEFILE CT»#A CBASE*+3) 9A CBASEtS] 2A CBASE*+QleA CBASE+6))35 
END 

ELSE 

PARAMISLIBMSGCTRe eis 
VOID A CARD 
VQLOT 

IF A CBASE+6] NEQ 7 THEN GOERR C* A CBASE+6)22)3 

Tr A CBASE#5) EQL USERCODE THEN 
VOID A CARD 


MAKEFILE CLL&13039841 87 Jol oMAKEFN CLS" sh) se USERCODESFILETYPEs 023 


DOING! S63 


LLOI SKREAD’ s7POKADR3 % GET EOF PUINTER RECORD IN WAP" FILE 


WANT SSVDISKREAD3 
DOING! #113 
IF A ECBASE+4) GTR O OR A CBASE}+64286) NEQ * " THEN 


FIND CLL&IAM C33841%7] 205A CBASEI 6 (O68 36)2A CBASE +S] eUSERCODE D3 


VOIOT 

BEGIN LITOUT ("ERR "»NOCRLF 3 
LITOUT (9 & Me™ (684246) & A CBASE) (1226836) CRLF); 
TAM#203 GO TO EXIT 


ENDS 
BEGIN % CASE 11 = "1p" EQF POINTER IN CORE 
IF WORK CO)STEN8 THEN % EOF POINTER 
BEGIN 


WORK (20]:83FILETYPES ® NEW FILE TYPE 
DISKWRITE CTPDKADR)3 % REPLACE EUF POINTER 
TAME=03 
END 
ELSE 
BEGIN &’ RATS = FILE TYPE IN NEXT SEGMENT 
IF WORK Ci9]8TENS THEN 
A [BASE] #20 
ELSE 
IF WORK (C20]=TEN8S THEN 


00206330 
00206335 
00206340 
00206345 
00206347 
00206350 
62000500 
62001800 
62001900 
62002500 
62003000 
62004563 
62004564 
62004565 
62004566 
62004900 
62005200 
62005680 
620071400 
62007200 
62007210 
62007220 
62007230 
62007300 
62007400 
62007410 
62007420 
62007500 
62007800 
629008200 
62008250 
62008800 
62008900 
62909900 
62010375 
62010400 
62010450 
62911500 
62911800 
62011900 
62012500 
62912550 
62012600 
62012650 
62013502 
62013504 
62013506 
62913508 
62013510 
620133512 
62013514 
62013516 
62013518 
62013520 
62013522 
62913524 
62013526 
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0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
Q518 
0518 
0518 
0318 
0518 
0518 
0318 
0518 
0518 
0518 
0518 
0518 
0318 
0518 
0518 
0518 
0518 
Q518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0318 
0518 
0518 
0518 
0518 
0518 
0918 
05148 
0518 
05148 
0518 
0318 
0518 
0518 
0518 
0518 
0518 


A [CBASE]t=10 
ELSE % CANT FINO EOF MARKER * GIVING UP 
BEGIN ITAM:=03 GO EXIT END: 
DOING!=12; 
LLDISKREAD SS TPOKADR+Ls 
WANTS SVDISKREADS 
TEMP t=13 
END3 
ENDS % CASE 11 
BEGIN % CASE 12 = FINALLY GOT FILETYPE IN "1P" EOF RECORD 
WORK CA CBASEI]IJ3=FILETYPES 
DISKWRITE CTPOKADR+41)3 
TAM$303 
ENDS % CASE 12 
$t THIS PATCH UPDATES THE CHANGE COMMANDe 


$% THIS PATCH ALLOWS A USER TO SPECIFY A FID ON BOTH THE OLOFILE AND THE 


St NEW FILEe THE FORMAT IS MFID/FID. 
$1 EG, CHANGE A/B TO C/D 
$3 CHANGE SOURCE A/p FACTOR TO & 


$$ *##WARNING** = REQUIRES PATCH # 501 FOR "FIXUSER" 
$s *eNOTE®#* = MCP DQES NOT CHECK SECURITY = NEEDS MCP PATCH # 563, 


$t D,GeWILLMSs 1JUN76,. BROCK U, PATCH 518 
$& PATCH UPDATED 13AUG76. DeG@eWILLMS, : 
$3 CANOE WILL NOW UPDATE THE "iP" FILE ON A WORKFILE TYPE CHANGEs 


$% THIS IS DONE SQ THAT CANDE WILL eee A TYPE CHANGE ACRUSS A H/Le 


$' Lis patch nthe UCSC a al a yoy 


$# PaTcH NUMBER 519 FOR CAaNDEeXVI.0 CONTAINS 9 CARDS EQY MESSaGE 


STREAM PROCEDURE LQADCQDE CPLACE)3 

BEGIN 

DItSsPLACE3 Dils<OI42; 

OS¢s6 LIT " PST "3 Disp] +263 

OS?=6 LIT " TOTe 3 

END OF LOADCODE3 
TIMEUSED CWORK COJ]sTIMECONV CEVENTS C4) eCI6832)sFALSE))3 
LOADCODE CWORK £5))3 
TWXOUT CLLeWORK (0)27222)3 

$1 THIS PATCH UPDATES CANDE EQY MESSAGE, 


62013528 
62013530 
62013532 
62013534 
62013536 
62013538 
62013540 
62013542 
62013544 
62013546 
62013548 
62013550 
62013552 
62033554 


14032610 
14052620 
14052630 
14052640 
14052650 
14052660 
14213400 
14213200 
14215000 


$: CANDE WILL NOW GIVE BOTH PROCESS & I0 TIMES REQUIRED FOR EACH JOB STEP. 


$$ THE FORMAT IS <PST TIME> PST <IO TIME> OT. 
$3 0,G_. WILLMSs 2JUN76, BROCK U, PATCH 519 


$# PaTCH NUMBER 520 FOR CANDE*eXV1e0 CONTAINS 1 CARDe “REMOVE” VERB 


$ YOrDT 61002900 
$* THIS PATCH UPDATES THE REMOVE PROCEDURE> 


61002810 


ooovv00 Co0 ce coc CVV VcC CVC cCVCcecoc o0 gd 


o 
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$1 A USER CAN NOW REMOVE A FILE IF ITT HAS A NAME THAT IS A VERB CIEs BYE)» 


$1 PRIOR TO THIS PATCHe A USER COULD CREATE THE FILE OR CHANGE ITS NAME 


$: BUT HE COULD NOT REMOVE ITs 
$t 
$$ DeGe WILLMSs LIJUN76, BROGK Use PATCH 520 


$# PATCH NUMBER 521 FOR CANDE+XV1e0 CONTAINS 18 CARDS» 17ROW USERS/CANDE 


USERBASE» & BASE ADOR OF USERS/CANDE 
$ VOIOT 00015200 
LLOISKREADESUSERBASE+I3 
USERLOC tSUSERBASE+USRIS 
STREAM PROCEDURE ERR CW)3 
BEGIN 
DIseWs HSts3iLIT"USERS/CANDE HaS MORE THaN 1 ROW"S OStaL[ Ter; 
END OF ERR3 
INTEGER Ii 
FOR [t=14 STEP 4 UNTIL 29 DO 
IF WORK CI] GTR O THEN 


BEGIN 

ERR (LYS TWXOUT CO*L COJ)se32°1)73 
Tss0/03 & KILL CANDE 

ENp3 


USERBASEsSWORK £40)3 

LLOISKREADt=USERBASES % USERS/CANDE RECORU ZERO 

DISKWRITE CUSERBASE)3 
$i THIS PATCH UPDATES THE LOGGING PROCEDURE, 
$3: USERS/CANDE MUST NOW BE A 1 ROW FILE» THIS WILL SPEED UP THE 
$t LOGGING PROCEDURE AND CUT DOWN ON CANDES CORE REQUIREMENTSe 
$1 
$$ DeGe WILLMS» 234YUN76, BROCK Us PATCH 521 


$4 PaTCH NUMBER 523 FOR CANDEeXVIeO CONTAINS 18 CARDSe a~LL THE NEWS 


% TO VOID A CARD 
TEMP tag} % MUST NOT BE 4 = SSFILE USES AS FLAG 
IF EVENTS (3) LSS 0 THEN GO TO WINDUP3 % NO RECORDS 
LLOISKREAD? SEVENTS C2),016815)3 


DOING!?#23 % TRANSFER TO 
TAMS=VSSFILE3 % SSFILE 
A CBASE+3) saL1L; 

$ VOrOT 

DEFINE SPOCNTRL & A CBASE+2] #3 


BEGIN. 
IF TEMP NEQ 4 THEN %& RETURN TO "HI THERE" 


BEGIN 
TAMS®VHELLOZ DOING? 373 
ENO 
ELSE 
ITAMt #03 
GO TO EXIT; 


00012510 
00015110 
01011800 
01012710 
05000332 
05000334 
05000336 
05000338 
05000340 
05004025 
05001030 
05001035 
05001040 
05001045 
05001050 
05001055 
36005200 
36005900 


00041600 
01012100 
01919350 
01949400 
01919550 
01919600 
01019650 
01919900 
42000450 
42007000 
42007010 
42007029 
42007030 
42007040 
42007050 
42007069 
42007070 


oo 902 00 


o 
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o 
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0320 
0520 
0520 
0520 
0520 


0521 


0521 
O524 
0521 
Q521 
0521 
0521 
0521 
0521 
0521 
Q521 
0521 
0521 
0521 
0521 
Q521 
O521 
0521 
0521 
Q521 
0521 
0521 
0521 
05214 


0523 


0523 
0523 
0523 
0523 
0523 
0323 
0323 
0523 
0523 
0523 
0523 
0523 
0523 
0523 
0523 
0523 
0523 


$% 


$3 


END3 42907080 
THIS PATCH UPDATES LOGGING INe 
IF THE NEWS/CANDE FILE IS PRESENT ODURING LOGIN» PROCEDURE SSFILE WILL 
BE CALLED TO LIST THE ENTIRE FILEs. CONTROL WILL THEN GO BACK TO 
HITHERE, 
ALSO CANDE WILL NOT LIST SEGMENT ZERO ON THE TERMINAL IF THE 
NEWS/CANDE FILE CONTAINS NO RECORDS (IE~e ROW 1 AT SEGMENT 0)¢ 


DeGe WILLMSs 24JUN76, BROCK Ue PATCH 523 


PATCH NUMBER 524 FOR CANDE+xVIs0 CONTAINS 9 CARDSe BYEBYE 
IF A CBASE] LSS 50 THEN % CHECK FOLLOWING IF NOT "HELLO" 54000601 
BEGIN 54000602 
IF TheCCA CSREGSsBASETA CBASEJ))eFF) > 1 THEN 54000603 
GOERR ("TOOMANY's16)3 % TOG MANY PARAMETERS 54000604 
IF T & 1 THEN 54000605 
IF T#ecA CINC (SREG)].[(6242) S"BYE " THENSFORCED BYE54000606 
ELSE GOERR (Ts8) % ILLEGAL PARAMETER 54000607 
ELSE 54000608 
ENDS | 54000665 
THIS PATCH UPDATES BYE. 
IF a WSER TRANSMITS BYE BYE» CANOE WILL NOT CHECK TO SEE IF HIS WURK 
FILE HAS UNSAVED RECORDS IN ITs IT WILL GO OTRECTLY TO LOGGING HIM OFF. 
IF A USER EXCEEDS HIS IDLE PERIODs THE MCP WILL ALSO SEND A BYE BYE 
COMMAND TO DISCONNECT HIM IMMEDIATELYs IF MCP PATCH 557 (BROCK) IS IN 
DeG WILL MSs lL AUG76, BROCK Us PATCH 524 
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$# 


$1 
$1 
$1 
$1 
$1 


$# 


PATCH NUMBER 525 FOR CANDE«XVI,0 CONTAINS 1 CARD, COMPILE DEFAULT PRIOR 


WORK (18):2853 & PRIORITY 32001800 
THIS PATCH ALTERS THE DEFAULT PRIORITY OF yOBS COMPILED UNDER CANDEs 
THIS PRIORITY IS Se THIS WILL ONLY BE USED WHEN A PROGRAM COMPILED 
VNDER CANDE JS EXECUTED UNDER BATCH, 


DaGeWILLMS213APR76, BROCK U, PATCH 525 


PATCH NUMBER 526 FOR CANDEsXV1e0 CONTAINS 3 CARDS+ UNNECESSARY WORKF ILE 
IAMS#0; 01921000 
TAME#s03 09002900 
TAME*03 09004400 


THIS PATCH CAUSES CANDE TO SET UP THE "1P" AND "47" FILES ONLY IF THE 
USER IS GOING To USE A WORK FILE CIE, "MAKE" OR "LOAD"), PRIOR TU 
THIS PATCH CANDE WOULD SET THESE FILES UP WHENEVER A USER LOGGED INe 
SOME USERS NEVER USE A WORK FILE AND THUS DON"T NEED THESE FILESe 


o 


oon cCTCvVcc VV OD COCO oN 


oO 


ouov0eo 


oo00°0c 00 


0523 
0323 
0523 
0523 
0523 
0523 
0523 
0523 
0523 


0524 


0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0324 
0524 
Q524 
0524 


0525 


0525 
0525 
Q525 
9525 
0525 
0525 


0526 


0526 
0526 
0526 
0326 
0526 
0526 
0526 


$1 THIS WILL ALSO HELP TO REDUCE CLUTTER ON THE UISKe 


$$ DeGeWILLMSs16AUG76, BROCK U, PATCH 526 


$#@ PATCH NUMBER 527 FOR CANDE«XVI.0 CONTAINS 37 CARDSe REMOVE ALL WORKFILES 


Ret NE EEE EERE REE ea ae ie ke em 00066150 


PROCEQURE FILESAWAY (OBYTOOs,USERCODE)3 VALUE OBYTOU,USERCODES 00066200 
BOOLEAN OBYTOQOs REAL USERCUDE 00066225 
Rete ER EKER EERE ee te ke kee 00066250 
BEGIN 00066300 

REAL T1723 00066350 

TUPLE & 13 (338419773 00066400 
REMOVEFILE CTL,T2t@MAKEFN C™1S"eL Le USERCODE D3 00066450 

IF OBJTOO THEN REMOVEFILE (T1sT2,[6%36)*USERCODE)3 00066500 
REMOVEFILE ¢(T1,T2 & "P" [1214236 }+USERCODE)S 00066550 
REMOVEFILE (Ti,T2 & "T" [iei4eso]-USERCODE 3 00960600 
REMOVEFILE (CT1L,T2 & "Q"” Ci2t42t6]sUSERCUDE D3 00066650 
T2eC36t1L2I)1=13 00066700 
REMOVEFILE (T1,T2 & "P™ Cl2ta2iO]»USERCODED; 00066750 

END OF FILESAWAY3 00066800 
FILESAWAY CTRUE*SUSERCQDE)3 54002200 

$ VoroT 54002950 54002300 
WRKFILES 61901000 
IF FILENAME = 0 THEN GQERR ("NO FILE"s1)3 61001050 
TPCOUNTSSFILENAME S250URCEFILE SaTAMs=Q3 61001100 

FILESAWAY (NOT SeUSERCODE); 61001110 

FILESOKsSFALSE3 61901120 

IF NOT § THEN GOODOBVIsB (OBVECTFILE#30)3 61901130 

IF O THEN 61903213 

IF GOOpOBY THEN 61003216 

BEGIN 61003220 
OBJECTFILE S503 61003223 

GOOPOBJESFALSES 619003226 

XtSMAKEFN CMLS"O LL DS 61903230 

REMQVEF ILE CLL & 13 [3384137 J eX, (62836) sUSERCODE)3 61903233 

TAM8 303 61903236 

GQ EXITS 61003240 

END 61003243 

ELSE 61003246 

GOERR ("NO FILE" 26) 61903250 

ELSE 61903253 


GO TO WRKFILES 


$! THIS PATCH UPDATES "REMOVE", 


$; IF A USER REMOVES HIgs WORKFILE, CANDE WIL NOW REMOVE ALL ASSOCIATED 


$$ FILES CIE, 


$; IF A USER ATTEMBTS To REMOVE HIS WORKF ILE COR HIS OBYECT WORKFILE)D 
$* CANDE WILL NOW CHECK TO SEE IF HE HAS ONE RATHER THAN JUST RESPONDING 


St owrTH A "#", 


H1S% > HTP Her MIT, ETC). 


$1 DeGeWILLMSs17AUG76, BROCK Us, PATCH S27 


61903260 


oo 


o 


wRoko Ree wie RwhekeleRokokoekololeleubelvleRvlvluloleledelotenolveheleRoRelviclelvishwele—~eR~l 


0526 
0526 
0526 


0527 


0527 
0527 
Q5e7 
0527 
0527 
03527 
Q527 
0527 
Q527 
0527 
0527 
0527 
0527 
0527 
0527 
0527 
O5a7 
0527 
0527 
03927 
03527 
03527 
0527 
0327 
0527 
0527 
0527 
Q527 
0527 
0527 
0527 
0527 
03527 
0527 
0527 
Q327 
0527 
0527 
0527 
0527 
0527 
0527 
Q527 
0527 
0527 


S#PATCH NUMBER 901 FOR CANDE CONTAINS 5 CARDS COPY 


ELSE MATCHC WORD, (6830Js"PRINT") UNIT 82 17 
ELSE MATCHCWORDs"SPECTAL") UNIT 38 3 


$3 BY TOM PENNELLOs UCSC 


IF UNIT#17 OR UNIT=12 
MATCHCWORDs"LPA 
MATCHCWORDs "LPB 


THEN UNIT%#153 & PR 


") UNIT t® 5 ELSE 
") UNIT #*® 6 ELSE 
ALLOWS CUPY TO LPAs LPB 


$: REQUIRES A PATCH TO cCOPY/CANDE 


TO LPAsLPB 


INT TO PBD 


S#PATCH NUMBER 903 FOR CANDE CoNTAINS 4 CARD MINIMIZE MaxLINES 


DEFINE MAXLINES = 1283 
$? BY JHe 


% # OF LOGICAL LINES TO BE HANDLEDe 
UCSCe CUTS DOWN ON SOME ARRAY SPACE IN CANDE BY ALLOWING 


$1 A MAXIMUM OF 12 TERMINALS TQ BE LOGGED ON AT ONCE. 


$#PATCH NUMBER 904 FOR CANDE CONTAINS 114 CARD ABBREVIATED VERBS 


FILL WORKC#*) WITH 


15EQ “s "SHELLO "ses "{BYE ", “O2TAPE > 
"2PUNCH “» “6CHARGE “s *3SCHEDUL™» “3STATUS "ty 
*3STOP *s "SCC s,s “3SET "»s "SRESET >» 
"OTIME  "s “OMONTTORNS 

FOR VRB t= 0 STEP 1 YNTIL 13 00 
BEGIN 
N %@ WORKE VRB); 


IF YOUFINDAVERBCNs VERBTABLELO]» NUMOFVERBS) 


BEGIN 
N $m CNel989)) DIV B3 


SETBITCN+1s RESTRICTEDVERBS D3 


END3 


ENDs 
END PROCEDURE SPOLOGON3 


MAKEDATE3 


COMMENT VERBTABLECWORD],C6!3) IS USED AS A FLAG FOR 
SCANNER ¢€ FOR "SPECIAL" VERB. )3 
FILL VERBTABLEC#®) WITH 


"1LIsT "pe 3%3000Q0Q00000000070"%» & #56 
"1RUN "ps 3%3000020000000071"%» % #57 
W2SAVE "e 3"%3000040000000073"%» % #859 
"1SEQ Wp» 39%3000060000000065"%» & #53 
WLEXECUTE™Ms 373000100000000071"%», & #57 

"200 *s 3%3000100000000071%» %& #57 = EXECUTE 
WEMAKE #, 9%300044Q0000000067"%» % #55 
"2L0ad *, 3%3000160000000072"5» % #58 
“1COMPILE's 393000200000000071"» % #57 
"3REMOVE "» 3%3000220000000075", %& #64 
"2CHANGE “» 3°3000240000000076"» % #62 
"3RENAME "s 3°3000260000000077"» % #63 
"4FILES “ss 3%3000300000000063"5 % #51 
"EWHATS Me 373000320000000100"» & #64 ALSO 


THEN 


43011800 
43011810 
430343030 
52008610 
52008620 


00001000 


00007900 
00008000 
00008010 


00010000 


90367780 
90367790 
90367800 
90367810 
90367820 
90367830 
90367840 
90367850 
90367860 
90367870 
90367880 
90367890 
90367900 
90367910 
90367920 
90368000 
90368010 
90368020 
90369000 
90370000 
90371000 
90372000 
90373000 
90374000 
90375000 
90376000 
90377000 
903768000 
90379000 
90380000 
90381000 
90382000 
90383000 


ouoc 000 Oo 


oc oO o 


o 


jekve wR eku Row Ewe Rak okeke Rel eRe ke eR okeoRekuh od vie Bole kesekvkeleker ok 


0901 


0901 
0904 
0901 
0901 
0904 
0904 
0901 


0903 


0903 
0903 
0903 


0904 


0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 


$} 


"2CREATE ys 


"SHELLO "» 
WOTYPE ", 
"IBYE Ww, 
"3COPY "5 
"2MERGE ‘ts 
"3RESEQ "» 
W2DELETE “» 
"APPEND "s 
"LADD * 
weTd "» 
"ass Ws 
"LGUARD "ys 
"3L0cK —", 
"LUNLOCK "> 
"2TAPE "» 
"IPRINT "pe 


"“OQPUNCH >» 
M6CHARGE "ys 
"3SCHEDUL"s 
"3STATUS "> 
"3STOP "» 
"2TIME "» 
"LUPDATE “a 
"SREPLACE’» 
"APFIND "» 
"2CC "» 
"WORMERGE "»s 
"ADISPLAY"> 
"3SET ", 
"SRESET "» 
"OMONITOR'» 
"3SSFILE ">» 
WOEQUATE “oe 
"3PUBLIC "> 


WP ake waa ls 


3”3000340000000067", 
3”3010360000000001",» 
3"3000400000000101"» 
3" 3000 420000000066» 
373000440000000064"s 
3"3000460000000064"s 
373000500000000064">» 
3°3000520000000064", 
3"3000540000000064", 
3"3000540000000064", 
3%3000600000000062"» 
3% 3000620000000062"» 
37%3000640000000103"» 
3% 3000660000000104"s 
3"3000700000000104", 
3"3000720000000105", 
3"3000740000000106",» 
3"3000760000000064", 
3"3001000000000107 "2 
3%3004020000000140",» 
3"3001040000000111"» 
3"™300106000000011 1%» 
3"3001100000000045",» 
3"3001120000000113", 
3%30411400000001444", 
3%3011160000000114", 
33007 200000000046", 
3%3001220000000064">» 
3"3001240000000070"%. 
3"3011260000000051">» 
3"3011300000000051i",» 
3"3001320000000050",» 
3"3001340000000052", 
3% 3001360000000053", 
33001400000000104"M, 
03 & LAST ENTRY 


DL DE DR BE VE DE SE BC BE ae BE aE DE JE dE de ae de ae 


#55 ALSO 


#52s ALSO 
#52 ALSO 
#522 ALSO 
#52s ALSO 


522 ALS0 
50 
50° ALS0 
67 


%732 ALSO 


Se Bl Ve DE ve Be ae ve Be de 


76 ALSO 


52 ALsu 


41 ALSO 


68 ALSO 


LoCKCVERBTABLEL#])3 % MAKE READ ONLY ARRAY 
FILL TYPETABLELC*) WITH "“7UNKNOWN",» 


PEBASIC ‘te 
"EALGOL ‘te 
"ECOBOL tt, 


"“GFORTRAN*"s» 
“ETSPOL ts 
"FXALGOL "es 
"3SEQ ar) 
"ADATA Ws 
"3LOCK ts 
"aINFQ Li) 
"GCOBOL6B";3 


LOCK(TYPETABLEL*])% % MAKE READ ONLY ARRAY 
FILL RESWROTABLEL*) WITH "7UNKNOWN"s 


"SBASIC ta 
"SALGOL We 
"SCOBOL es 
"7FORTRANS» 
"STSPOL es 
M6XALGOL es 


@ ae ae de aE BR 


OvwSs whe 


90384000 
90385000 
90386000 
90387000 
90388000 
90389000 
90390000 
90391000 
90392000 
90393000 
90394000 
90395000 
90396000 
90397000 
90398000 
90399000 
90400000 
90401000 
90402000 
90402400 
90402200 
90402300 
90402400 
90402660 
90402870 
90402880 
90402890 
90403000 
90403100 
90403200 
90403300 
90403400 
90403440 
90403420 
90403430 
90403900 
90403950 
90404000 
90405000 
90406000 
90407000 
90408000 
90409000 
90410000 
90411000 
90412000 
90413000 
90443100 
90413900 
90443950 
904144000 
90435000 
90416000 
90417000 
90418000 
90419000 
90420000 


oCocovo CoO CVVTOVT COC OTOCCCOVVOVCVOVOVCVOVDVOOU OUD UO OVDOOODOCODCOCGCOU GOD 


0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
Q904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 


le: hall? 


"35SE@ Wy» 
"ADATA "9 
"4aLOcK Ms 
"GINFO Ws 
“"7COBOL68'"s 
"6PUBLIC ‘ts 
“7SOLEUSEs 
“FUNLOCKE "2 
"6LOCKED "> 
"60BJECT "» 
"6SOURCE ts 
WaCARQDS "os 
"aDISK W» 
"3END a 
WGSERRORS ws 
W4FILES 
"aFROM 1, 
"7LIBRARY "ts 
"7PRINTERs 
"SPUNCH ‘tp 
"SRESEQ es 
"aTAPE Wy, 
"ATYPE ">, 
"AWITH tt» 


N7 hehe eats 


BY TJPs UCSC CENTRAL, 
CHANGES THE MINIMUM LENGTH OF MOST CANDE VERBSe 
SHORTENS MOST OF THEM» 
CURRENT CANDE ABBREVIATIONS. 

EeGe» "MAKE" CAN BE aBBREVIATED "M", 


47 & 1 = 47 ARE POSITION DEPENDENT 


BR BE BE JE VL Je |e BC BC DE Je BE VE BE WL de aE ye Be ac aC ae ae ae ae 
_ 
© 


WHILE KEEPING CONSISTENT WITH THE 


90421000 
90422000 
90423000 
90424000 
90425000 
90426000 
90427000 
90428000 
90429000 
90430000 
90431000 
90432000 
90433000 
90434000 
90435000 
90436000 
90437000 
90438000 
90438400 
90438200 
90438300 
90438400 
90438500 
90438600 
90439000 
90439010 
90439020 
90439030 
90439040 
90439050 


iwkuBwawiesheoboekcleiukvuls kek eRuivaake Rohe sede Bek ekekelol oles) 


0904 
Q904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
Q904 
0904 
0904 
0904 
0904 
Q904 
Q904 
0904 
0904 
0904 
0904 
0904 


; 
‘. 
¢ 
{ 


Reed CONFLICTS HW tek te tte ee ek ei Ea EWE ERR RHEE EKER TEKKEN ee 


MATCHCWORD,*_IBRARY") BEGIN LIBiaTRUEJGO NUMUSER END ELSE560007650 0 0501 CONFLICTED WITH?! 
MATCH CWORDs"LIBRARY") LIB t= TRUE ELSE 56007650 0D Q400 DISCARDED 


NUMBER OF ERRORS DETECTED = O, 
PROCESSOR TIME = 29 SECONDS. 
1/0 TIME & 25 SECONDS, 


LABEL Q900000000LINE 001770137 EXECUTE PATCH/MERGE PATCH /MERGE 


1 
x 
‘iz 


wah! 


i$, 
Se 
{$« 
$$e 
tS 
t$~ 
1$* 


“LABEL OFULLPGEOLINE OOL7O3177EX O/RIFILE SACPATCH/SPUS ENDS 


FILES CPRATCH/SPO FRIDAY 11/12/76 03120 PM 


tS@CARD CONFLICTS LIST NUNO MERGE ZIP 


7 PATCHES FOR CANDE 

COMPILE NUCANDE/TSHARER WITH TSPOL LIBRARY 
TSPOL STACK = 1024 ’ COMMENT TSPOL STACK AIN@T BIG ENQUGH 
TSPOL FILE TAPE = SYMBOL/CANDE DISK SERIAL 

CORE = 4000. COMMENT SETS CORE EST FOR CANDE TO 4000 wORDS 
STACK = 256, CANDE STACK NEEDS NO MORE THAN 256 WOS 

DATA CARD 


$= 
SSRESET LIST SINGLE 
tSSET TAPE 
SS#PATCH NUMBER 105 FOR GANDE CONTAINS 4 CARDS 
59001800 5 IF T = 0 THEN ACBASE)] «© *4 ELSE 
59004400 H (F ¢ JF ACBASEJ < 0 THEN O ELSE ACBASE]) & 
59004450 t FILETYPEC3254296] & UNLOCKTOGGLE C31°4731))3 
59010700 $ IF ACBASE) 20 THEN WORK[3].£2310) « ACBASE)3 
$s BY JTC = MSA CENTRAL 
$S#PATCH NUMBER 901 FOR CANDE CONTAINS CARDS 
43911800 i ELSE MATCHCWORD,COS30)o"PRINTY) NIT 33 17 
43011810 ' ELSE MATCHCWORDse"SPECTAL®) UNIT $8 3 
43013030 3 Tartan OR UNITS12 THEN UNIT34153 _& PRINT TO PaO 


127" 


©eveeee 


re Business Forms, inc. sv 


Mos 


~~ 


52008610 ‘ MATCHCWORDs"LPA ") UNIT &%s 5 ELSE 
52908620 i} ATCHCWORDe "LPB ") UNIT ta 6 
TOM PENNELLOs UCSC ALLOWS COPY TO LPA» LPB 
*S#PATCH NUMBER 902 FOR CANDE CONTAINS 2 CAROS 
1939902 HIF (WORKC40],€6842) NEG " " THEN TWXOUTCLE*WORKOCL0)2720CRLF D3 
1019904 sIF/WORK(20),(6842) NEQ * " THEN TWXOUTCLL »WORKC20) 0 72eCRLF DS 
$$3/ BY TOM PENNELLOs UCSC CENTRAL, ALLOWS UP TO 3 LINES OF LOGIN MSG 


{ 


LABEL OFULLAGEOLINE OOL763177EX O/RIFILE SaCPATCH/SPOJEND] 


8 


7R 


7/R 


~~ -~ - y= = = = = © © we © © © © © ee 
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